<!-- #include file="adovbs.inc" -->
<%  
    dim SiteStatus
    dim SiteMessage
    set cn = Server.CreateObject("ADODB.Connection")
    'Replace server, user, password in the following line with values for your environment
    cn.ConnectionString = "Provider=SQLOLEDB;Data Source=phssql176;Initial Catalog=insight_qa;User ID=Insight;Password=insight;"    
    cn.Open
   
    set objCmd = Server.CreateObject("ADODB.Command" )
    objCmd.ActiveConnection = cn
    objCmd.CommandType = 4	'Stored Procedures
    objCmd.CommandText = "dbo.GetSiteStatus"
       
    Set paramId = objCmd.CreateParameter("@checkDate",adVarChar, adParamInput, 30, Now() )          
    objCmd.Parameters.Append paramId

     set rs = objCmd.Execute() 
   
    if not rs.eof then
        while not rs.EOF 
            SiteStatus = rs("Status")
            SiteMessage = rs("Message")
            
            rs.MoveNext
        wend
    end if
   

    
  
   
%>
